home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1986 September
/
64er_Magazin_86-09_1986_Markt__Technik_de.d64
/
demo 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
88 lines
1000 rem*******************************
1010 rem****** ******
1020 rem*** hires colossal ***
1030 rem*** -- demo -- ***
1040 rem****** ******
1050 rem*******************************
1060 rem
1070 rem (c) 1/86 by
1080 rem f.graef
1090 rem 6831 plankstadt
1100 rem
1110 :
1120 :
1130 rem*** ram-ende heruntersetzen ***
1140 :
1150 sys 52225,0
1160 clr
1170 :
1180 :
1190 rem***** alle schirme richten ****
1200 :
1210 for i=1 to 4
1220 : sys 52225,1,i
1230 : D 0,12
1240 :DO i*20,i*20,""+str$(i),1,1,12
1250 : Db i*20+15,i*20+3,10,10,1
1260 D10,i*10+100,i*20+10,i*10+110,1
1270 : D 0,199,319,0,1
1280 : D 120+i*10,0,120+i*10,199,1
1290 : DF 1
1300 next i
1310 :
1320 :
1330 rem***** alle schirme zeigen *****
1340 :
1350 for i=1 to 2
1360 : for x=1 to 4
1370 : sys 52225,1,x
1380 : DF1
1390 : next x
1400 next i
1410 :
1420 :
1430 rem**** alle schirme saven *******
1440 :
1450 for i=1 to 4
1460 : sys 52225,1,i
1470 sys52225,3,1,8,2,"s"+str$(i)+",p,w"
1480 next i
1490 :
1500 :
1510 rem schirme uebereinander blenden
1520 :
1530 sys 52225,1,1
1540 for i=2 to 4
1550 : sys 52225,2,i
1560 next i
1570 DF 4
1580 :
1590 :
1600 rem*** alle schirme loeschen *****
1610 :
1620 for i=1 to 4
1630 : sys 52225,1,i
1640 : D 0,12
1650 next i
1660 :
1670 :
1680 rem****** schirme laden **********
1690 :
1700 for i=1 to 4
1710 : sys 52225,1,i
1720 : sys 52225,4,"s"+str$(i),8
1730 next i
1740 :
1750 :
1760 rem*** alle schirme zeigen *******
1770 :
1780 for i=1 to 2
1790 : for x=1 to 4
1800 : sys 52225,1,x
1810 : DF1
1820 : next x
1830 next i
1840 :
1850 :
1860 rem programmende